home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 5 / The 640 Meg Shareware Studio CD-ROM Volume V (Data Express)(1994).ISO / amiga / avm1_19.lha / rexx / broadcast.avm < prev    next >
Text File  |  1994-04-06  |  2KB  |  98 lines
  1. /* to broadcast to interested parties about changes in mailboxes */
  2.  
  3. /* action = 'addtomailbox', 'deletefrommailbox', 'refreshmailbox', 'refreshmailboxentry' */
  4.  
  5. parse arg action mailbox magiccookie .
  6.  
  7. call addlib("rexxsupport.library", 0, -30, 0)
  8.  
  9. /* who are interested?  AVMCALLNOTIFIER, AVMLOGVIEW.#? */
  10.  
  11. /* Assume MAX of 10 AVMLOGVIEWs */
  12.  
  13. if action = 'addtomailbox' | action = 'deletefrommailbox' then do
  14.     if showlist('p', 'AVMCALLNOTIFIER') then
  15.         address 'AVMCALLNOTIFIER' action mailbox magiccookie
  16.  
  17.     do i = 1 to 10
  18.          a = 'AVMLOGVIEW.' || i
  19.         if showlist('p', a) then do
  20.             address value a
  21.             ''action mailbox magiccookie
  22.         end
  23.     end
  24.  
  25.     do i = 1 to 10
  26.          a = 'AVMSCHEDULER.' || i
  27.         if showlist('p', a) then do
  28.             address value a
  29.             ''action mailbox magiccookie
  30.         end
  31.     end
  32.  
  33.     do i = 1 to 10
  34.          a = 'AVMSCHEDULERVIEW.' || i
  35.         if showlist('p', a) then do
  36.             address value a
  37.             ''action mailbox magiccookie
  38.         end
  39.     end
  40. end
  41.  
  42. if action = 'refreshmailbox' then do
  43.     if showlist('p', 'AVMCALLNOTIFIER') then
  44.         address 'AVMCALLNOTIFIER' action mailbox
  45.  
  46.     do i = 1 to 10
  47.          a = 'AVMLOGVIEW.' || i
  48.         if showlist('p', a) then do
  49.             address value a
  50.             ''action mailbox
  51.         end
  52.     end
  53.  
  54.     if showlist('p', 'AVMSCHEDULER') then
  55.         address 'AVMSCHEDULER' action mailbox
  56.     do i = 1 to 10
  57.          a = 'AVMSCHEDULER.' || i
  58.         if showlist('p', a) then do
  59.             address value a
  60.             ''action mailbox
  61.         end
  62.     end
  63.  
  64.     do i = 1 to 10
  65.          a = 'AVMSCHEDULERVIEW.' || i
  66.         if showlist('p', a) then do
  67.             address value a
  68.             ''action mailbox
  69.         end
  70.     end
  71. end
  72.  
  73. if action = 'refreshmailboxentry' then do
  74.     do i = 1 to 10
  75.          a = 'AVMLOGVIEW.' || i
  76.         if showlist('p', a) then do
  77.             address value a
  78.             ''action mailbox magiccookie
  79.         end
  80.     end
  81.  
  82.     do i = 1 to 10
  83.          a = 'AVMSCHEDULER.' || i
  84.         if showlist('p', a) then do
  85.             address value a
  86.             ''action mailbox magiccookie
  87.         end
  88.     end
  89.  
  90.     do i = 1 to 10
  91.          a = 'AVMSCHEDULERVIEW.' || i
  92.         if showlist('p', a) then do
  93.             address value a
  94.             ''action mailbox magiccookie
  95.         end
  96.     end
  97. end
  98.